home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 8.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 75 6e 20 | 4d 61 72 20 20 33 20 30 | on Sun |Mar 3 0|
|00000040| 34 3a 33 35 3a 34 33 20 | 31 39 39 36 0a 3b 3b 3b |4:35:43 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 73 65 72 76 65 72 | 2e 65 6c 0a 3b 3b 3b 20 |p/server|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 33 30 2e 39 31 2e 32 | 2e 0a 3b 3b 3b 20 62 79 |.30.91.2|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 2e 32 | 39 22 29 29 29 0a 20 20 |on "19.2|9"))). |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 60 73 65 72 76 65 | (error| "`serve|
|000001a0| 72 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |r.el' wa|s compil|
|000001b0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 2e |ed for E|macs 19.|
|000001c0| 32 39 20 6f 72 20 6c 61 | 74 65 72 22 29 29 0a 0a |29 or la|ter"))..|
|000001d0| 0a 23 40 34 31 20 2a 54 | 68 65 20 70 72 6f 67 72 |.#@41 *T|he progr|
|000001e0| 61 6d 20 74 6f 20 75 73 | 65 20 61 73 20 74 68 65 |am to us|e as the|
|000001f0| 20 65 64 69 74 20 73 65 | 72 76 65 72 2e 1f 0a 28 | edit se|rver...(|
|00000200| 64 65 66 76 61 72 20 73 | 65 72 76 65 72 2d 70 72 |defvar s|erver-pr|
|00000210| 6f 67 72 61 6d 20 28 65 | 78 70 61 6e 64 2d 66 69 |ogram (e|xpand-fi|
|00000220| 6c 65 2d 6e 61 6d 65 20 | 22 65 6d 61 63 73 73 65 |le-name |"emacsse|
|00000230| 72 76 65 72 22 20 65 78 | 65 63 2d 64 69 72 65 63 |rver" ex|ec-direc|
|00000240| 74 6f 72 79 29 20 28 23 | 24 20 2e 20 2d 34 37 30 |tory) (#|$ . -470|
|00000250| 29 29 0a 23 40 36 37 20 | 2a 4c 69 73 74 20 6f 66 |)).#@67 |*List of|
|00000260| 20 68 6f 6f 6b 73 20 74 | 6f 20 63 61 6c 6c 20 77 | hooks t|o call w|
|00000270| 68 65 6e 20 76 69 73 69 | 74 69 6e 67 20 61 20 66 |hen visi|ting a f|
|00000280| 69 6c 65 20 66 6f 72 20 | 74 68 65 20 45 6d 61 63 |ile for |the Emac|
|00000290| 73 20 73 65 72 76 65 72 | 2e 1f 0a 28 64 65 66 76 |s server|...(defv|
|000002a0| 61 72 20 73 65 72 76 65 | 72 2d 76 69 73 69 74 2d |ar serve|r-visit-|
|000002b0| 68 6f 6f 6b 20 6e 69 6c | 20 28 23 24 20 2e 20 2d |hook nil| (#$ . -|
|000002c0| 36 30 30 29 29 0a 23 40 | 37 33 20 2a 4c 69 73 74 |600)).#@|73 *List|
|000002d0| 20 6f 66 20 68 6f 6f 6b | 73 20 74 6f 20 63 61 6c | of hook|s to cal|
|000002e0| 6c 20 77 68 65 6e 20 73 | 77 69 74 63 68 69 6e 67 |l when s|witching|
|000002f0| 20 74 6f 20 61 20 62 75 | 66 66 65 72 20 66 6f 72 | to a bu|ffer for|
|00000300| 20 74 68 65 20 45 6d 61 | 63 73 20 73 65 72 76 65 | the Ema|cs serve|
|00000310| 72 2e 1f 0a 28 64 65 66 | 76 61 72 20 73 65 72 76 |r...(def|var serv|
|00000320| 65 72 2d 73 77 69 74 63 | 68 2d 68 6f 6f 6b 20 6e |er-switc|h-hook n|
|00000330| 69 6c 20 28 23 24 20 2e | 20 2d 37 31 35 29 29 0a |il (#$ .| -715)).|
|00000340| 23 40 37 33 20 2a 4c 69 | 73 74 20 6f 66 20 68 6f |#@73 *Li|st of ho|
|00000350| 6f 6b 73 20 74 6f 20 63 | 61 6c 6c 20 77 68 65 6e |oks to c|all when|
|00000360| 20 64 6f 6e 65 20 65 64 | 69 74 69 6e 67 20 61 20 | done ed|iting a |
|00000370| 62 75 66 66 65 72 20 66 | 6f 72 20 74 68 65 20 45 |buffer f|or the E|
|00000380| 6d 61 63 73 20 73 65 72 | 76 65 72 2e 1f 0a 28 64 |macs ser|ver...(d|
|00000390| 65 66 76 61 72 20 73 65 | 72 76 65 72 2d 64 6f 6e |efvar se|rver-don|
|000003a0| 65 2d 68 6f 6f 6b 20 6e | 69 6c 20 28 23 24 20 2e |e-hook n|il (#$ .|
|000003b0| 20 2d 38 33 37 29 29 0a | 23 40 32 38 20 74 68 65 | -837)).|#@28 the|
|000003c0| 20 63 75 72 72 65 6e 74 | 20 73 65 72 76 65 72 20 | current| server |
|000003d0| 70 72 6f 63 65 73 73 1f | 0a 28 64 65 66 76 61 72 |process.|.(defvar|
|000003e0| 20 73 65 72 76 65 72 2d | 70 72 6f 63 65 73 73 20 | server-|process |
|000003f0| 6e 69 6c 20 28 23 24 20 | 2e 20 39 35 37 29 29 0a |nil (#$ |. 957)).|
|00000400| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 84 |(byte-co|de "..!.|
|00000410| 08 00 c2 11 c1 0b 42 13 | c0 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|00000420| 6e 64 70 20 73 65 72 76 | 65 72 2d 70 72 65 76 69 |ndp serv|er-previ|
|00000430| 6f 75 73 2d 73 74 72 69 | 6e 67 20 22 22 20 63 75 |ous-stri|ng "" cu|
|00000440| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 5d |rrent-lo|ad-list]|
|00000450| 20 32 29 0a 23 40 32 32 | 35 20 4c 69 73 74 20 6f | 2).#@22|5 List o|
|00000460| 66 20 63 75 72 72 65 6e | 74 20 73 65 72 76 65 72 |f curren|t server|
|00000470| 20 63 6c 69 65 6e 74 73 | 2e 0a 45 61 63 68 20 65 | clients|..Each e|
|00000480| 6c 65 6d 65 6e 74 20 69 | 73 20 28 43 4c 49 45 4e |lement i|s (CLIEN|
|00000490| 54 49 44 20 42 55 46 46 | 45 52 53 2e 2e 2e 29 20 |TID BUFF|ERS...) |
|000004a0| 77 68 65 72 65 20 43 4c | 49 45 4e 54 49 44 20 69 |where CL|IENTID i|
|000004b0| 73 20 61 20 73 74 72 69 | 6e 67 0a 74 68 61 74 20 |s a stri|ng.that |
|000004c0| 63 61 6e 20 62 65 20 67 | 69 76 65 6e 20 74 6f 20 |can be g|iven to |
|000004d0| 74 68 65 20 73 65 72 76 | 65 72 20 70 72 6f 63 65 |the serv|er proce|
|000004e0| 73 73 20 74 6f 20 69 64 | 65 6e 74 69 66 79 20 61 |ss to id|entify a|
|000004f0| 20 63 6c 69 65 6e 74 2e | 0a 57 68 65 6e 20 61 20 | client.|.When a |
|00000500| 62 75 66 66 65 72 20 69 | 73 20 6d 61 72 6b 65 64 |buffer i|s marked|
|00000510| 20 61 73 20 22 64 6f 6e | 65 22 2c 20 69 74 20 69 | as "don|e", it i|
|00000520| 73 20 72 65 6d 6f 76 65 | 64 20 66 72 6f 6d 20 74 |s remove|d from t|
|00000530| 68 69 73 20 6c 69 73 74 | 2e 1f 0a 28 64 65 66 76 |his list|...(defv|
|00000540| 61 72 20 73 65 72 76 65 | 72 2d 63 6c 69 65 6e 74 |ar serve|r-client|
|00000550| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 31 31 31 34 |s nil (#|$ . 1114|
|00000560| 29 29 0a 23 40 36 39 20 | 4c 69 73 74 20 6f 66 20 |)).#@69 |List of |
|00000570| 63 6c 69 65 6e 74 69 64 | 73 20 66 6f 72 20 63 6c |clientid|s for cl|
|00000580| 69 65 6e 74 73 20 72 65 | 71 75 65 73 74 69 6e 67 |ients re|questing|
|00000590| 20 65 64 69 74 69 6e 67 | 20 6f 66 20 63 75 72 72 | editing| of curr|
|000005a0| 65 6e 74 20 62 75 66 66 | 65 72 2e 1f 0a 28 64 65 |ent buff|er...(de|
|000005b0| 66 76 61 72 20 73 65 72 | 76 65 72 2d 62 75 66 66 |fvar ser|ver-buff|
|000005c0| 65 72 2d 63 6c 69 65 6e | 74 73 20 6e 69 6c 20 28 |er-clien|ts nil (|
|000005d0| 23 24 20 2e 20 31 33 38 | 34 29 29 0a 28 62 79 74 |#$ . 138|4)).(byt|
|000005e0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 88 c2 c1 c3 c4 |e-code "|..!.....|
|000005f0| 23 87 22 20 5b 6d 61 6b | 65 2d 76 61 72 69 61 62 |#." [mak|e-variab|
|00000600| 6c 65 2d 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 20 |le-buffe|r-local |
|00000610| 73 65 72 76 65 72 2d 62 | 75 66 66 65 72 2d 63 6c |server-b|uffer-cl|
|00000620| 69 65 6e 74 73 20 70 75 | 74 20 70 65 72 6d 61 6e |ients pu|t perman|
|00000630| 65 6e 74 2d 6c 6f 63 61 | 6c 20 74 5d 20 34 29 0a |ent-loca|l t] 4).|
|00000640| 23 40 31 34 30 20 2a 54 | 68 65 20 77 69 6e 64 6f |#@140 *T|he windo|
|00000650| 77 20 74 6f 20 75 73 65 | 20 66 6f 72 20 73 65 6c |w to use| for sel|
|00000660| 65 63 74 69 6e 67 20 45 | 6d 61 63 73 20 73 65 72 |ecting E|macs ser|
|00000670| 76 65 72 20 62 75 66 66 | 65 72 73 2e 0a 49 66 20 |ver buff|ers..If |
|00000680| 6e 69 6c 2c 20 75 73 65 | 20 74 68 65 20 73 65 6c |nil, use| the sel|
|00000690| 65 63 74 65 64 20 77 69 | 6e 64 6f 77 2e 0a 49 66 |ected wi|ndow..If|
|000006a0| 20 69 74 20 69 73 20 61 | 20 66 72 61 6d 65 2c 20 | it is a| frame, |
|000006b0| 75 73 65 20 74 68 65 20 | 66 72 61 6d 65 27 73 20 |use the |frame's |
|000006c0| 73 65 6c 65 63 74 65 64 | 20 77 69 6e 64 6f 77 2e |selected| window.|
|000006d0| 1f 0a 28 64 65 66 76 61 | 72 20 73 65 72 76 65 72 |..(defva|r server|
|000006e0| 2d 77 69 6e 64 6f 77 20 | 6e 69 6c 20 28 23 24 20 |-window |nil (#$ |
|000006f0| 2e 20 2d 31 36 30 36 29 | 29 0a 23 40 31 34 38 20 |. -1606)|).#@148 |
|00000700| 2a 52 65 67 65 78 70 20 | 77 68 69 63 68 20 73 68 |*Regexp |which sh|
|00000710| 6f 75 6c 64 20 6d 61 74 | 63 68 20 66 69 6c 65 6e |ould mat|ch filen|
|00000720| 61 6d 65 73 20 6f 66 20 | 74 65 6d 70 6f 72 61 72 |ames of |temporar|
|00000730| 79 20 66 69 6c 65 73 0a | 77 68 69 63 68 20 61 72 |y files.|which ar|
|00000740| 65 20 64 65 6c 65 74 65 | 64 20 61 6e 64 20 72 65 |e delete|d and re|
|00000750| 75 73 65 64 20 61 66 74 | 65 72 20 65 61 63 68 20 |used aft|er each |
|00000760| 65 64 69 74 0a 62 79 20 | 74 68 65 20 70 72 6f 67 |edit.by |the prog|
|00000770| 72 61 6d 73 20 74 68 61 | 74 20 69 6e 76 6f 6b 65 |rams tha|t invoke|
|00000780| 20 74 68 65 20 65 6d 61 | 63 73 20 73 65 72 76 65 | the ema|cs serve|
|00000790| 72 2e 1f 0a 28 64 65 66 | 76 61 72 20 73 65 72 76 |r...(def|var serv|
|000007a0| 65 72 2d 74 65 6d 70 2d | 66 69 6c 65 2d 72 65 67 |er-temp-|file-reg|
|000007b0| 65 78 70 20 22 5e 2f 74 | 6d 70 2f 52 65 5c 5c 7c |exp "^/t|mp/Re\\||
|000007c0| 2f 64 72 61 66 74 24 22 | 20 28 23 24 20 2e 20 2d |/draft$"| (#$ . -|
|000007d0| 31 37 39 32 29 29 0a 28 | 62 79 74 65 2d 63 6f 64 |1792)).(|byte-cod|
|000007e0| 65 20 22 c0 09 9e 84 5c | 6e 00 c2 09 42 11 c0 87 |e "....\|n...B...|
|000007f0| 22 20 5b 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |" [serve|r-buffer|
|00000800| 2d 63 6c 69 65 6e 74 73 | 20 6d 69 6e 6f 72 2d 6d |-clients| minor-m|
|00000810| 6f 64 65 2d 61 6c 69 73 | 74 20 28 73 65 72 76 65 |ode-alis|t (serve|
|00000820| 72 2d 62 75 66 66 65 72 | 2d 63 6c 69 65 6e 74 73 |r-buffer|-clients|
|00000830| 20 22 20 53 65 72 76 65 | 72 22 29 5d 20 32 29 0a | " Serve|r")] 2).|
|00000840| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 72 76 65 |(defalia|s 'serve|
|00000850| 72 2d 6c 6f 67 20 23 5b | 28 73 74 72 69 6e 67 29 |r-log #[|(string)|
|00000860| 20 22 c0 c1 21 85 1b 00 | 8a c1 71 88 64 62 88 c2 | "..!...|..q.db..|
|00000870| 20 c3 5c 66 b1 03 88 6e | 86 1a 00 c5 20 29 87 22 | .\f...n|.... )."|
|00000880| 20 5b 67 65 74 2d 62 75 | 66 66 65 72 20 22 2a 73 | [get-bu|ffer "*s|
|00000890| 65 72 76 65 72 2a 22 20 | 63 75 72 72 65 6e 74 2d |erver*" |current-|
|000008a0| 74 69 6d 65 2d 73 74 72 | 69 6e 67 20 22 20 22 20 |time-str|ing " " |
|000008b0| 73 74 72 69 6e 67 20 6e | 65 77 6c 69 6e 65 5d 20 |string n|ewline] |
|000008c0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |3]).(def|alias 's|
|000008d0| 65 72 76 65 72 2d 73 65 | 6e 74 69 6e 65 6c 20 23 |erver-se|ntinel #|
|000008e0| 5b 28 70 72 6f 63 20 6d | 73 67 29 20 22 c0 09 21 |[(proc m|sg) "..!|
|000008f0| c2 3d 83 0e 00 c3 c4 c5 | 21 21 87 c0 09 21 c6 3d |.=......|!!...!.=|
|00000900| 85 1b 00 c3 c4 c7 21 21 | 87 22 20 5b 70 72 6f 63 |......!!|." [proc|
|00000910| 65 73 73 2d 73 74 61 74 | 75 73 20 70 72 6f 63 20 |ess-stat|us proc |
|00000920| 65 78 69 74 20 73 65 72 | 76 65 72 2d 6c 6f 67 20 |exit ser|ver-log |
|00000930| 6d 65 73 73 61 67 65 20 | 22 53 65 72 76 65 72 20 |message |"Server |
|00000940| 73 75 62 70 72 6f 63 65 | 73 73 20 65 78 69 74 65 |subproce|ss exite|
|00000950| 64 22 20 73 69 67 6e 61 | 6c 20 22 53 65 72 76 65 |d" signa|l "Serve|
|00000960| 72 20 73 75 62 70 72 6f | 63 65 73 73 20 6b 69 6c |r subpro|cess kil|
|00000970| 6c 65 64 22 5d 20 33 5d | 29 0a 23 40 33 37 31 20 |led"] 3]|).#@371 |
|00000980| 41 6c 6c 6f 77 20 74 68 | 69 73 20 45 6d 61 63 73 |Allow th|is Emacs|
|00000990| 20 70 72 6f 63 65 73 73 | 20 74 6f 20 62 65 20 61 | process| to be a|
|000009a0| 20 73 65 72 76 65 72 20 | 66 6f 72 20 63 6c 69 65 | server |for clie|
|000009b0| 6e 74 20 70 72 6f 63 65 | 73 73 65 73 2e 0a 54 68 |nt proce|sses..Th|
|000009c0| 69 73 20 73 74 61 72 74 | 73 20 61 20 73 65 72 76 |is start|s a serv|
|000009d0| 65 72 20 63 6f 6d 6d 75 | 6e 69 63 61 74 69 6f 6e |er commu|nication|
|000009e0| 73 20 73 75 62 70 72 6f | 63 65 73 73 20 74 68 72 |s subpro|cess thr|
|000009f0| 6f 75 67 68 20 77 68 69 | 63 68 0a 63 6c 69 65 6e |ough whi|ch.clien|
|00000a00| 74 20 22 65 64 69 74 6f | 72 73 22 20 63 61 6e 20 |t "edito|rs" can |
|00000a10| 73 65 6e 64 20 79 6f 75 | 72 20 65 64 69 74 69 6e |send you|r editin|
|00000a20| 67 20 63 6f 6d 6d 61 6e | 64 73 20 74 6f 20 74 68 |g comman|ds to th|
|00000a30| 69 73 20 45 6d 61 63 73 | 20 6a 6f 62 2e 0a 54 6f |is Emacs| job..To|
|00000a40| 20 75 73 65 20 74 68 65 | 20 73 65 72 76 65 72 2c | use the| server,|
|00000a50| 20 73 65 74 20 75 70 20 | 74 68 65 20 70 72 6f 67 | set up |the prog|
|00000a60| 72 61 6d 20 60 65 6d 61 | 63 73 63 6c 69 65 6e 74 |ram `ema|csclient|
|00000a70| 27 20 69 6e 20 74 68 65 | 0a 45 6d 61 63 73 20 64 |' in the|.Emacs d|
|00000a80| 69 73 74 72 69 62 75 74 | 69 6f 6e 20 61 73 20 79 |istribut|ion as y|
|00000a90| 6f 75 72 20 73 74 61 6e | 64 61 72 64 20 22 65 64 |our stan|dard "ed|
|00000aa0| 69 74 6f 72 22 2e 0a 0a | 50 72 65 66 69 78 20 61 |itor"...|Prefix a|
|00000ab0| 72 67 20 6d 65 61 6e 73 | 20 6a 75 73 74 20 6b 69 |rg means| just ki|
|00000ac0| 6c 6c 20 61 6e 79 20 65 | 78 69 73 74 69 6e 67 20 |ll any e|xisting |
|00000ad0| 73 65 72 76 65 72 20 63 | 6f 6d 6d 75 6e 69 63 61 |server c|ommunica|
|00000ae0| 74 69 6f 6e 73 20 73 75 | 62 70 72 6f 63 65 73 73 |tions su|bprocess|
|00000af0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 65 |...(defa|lias 'se|
|00000b00| 72 76 65 72 2d 73 74 61 | 72 74 20 23 5b 28 26 6f |rver-sta|rt #[(&o|
|00000b10| 70 74 69 6f 6e 61 6c 20 | 6c 65 61 76 65 2d 64 65 |ptional |leave-de|
|00000b20| 61 64 29 20 22 08 83 0e | 00 c1 08 c2 5c 22 88 c2 |ad) "...|....\"..|
|00000b30| c3 c4 8f 88 c2 c5 c6 8f | 88 c7 20 1e 08 c9 ca 0e |........|.. .....|
|00000b40| 08 5c 22 1e 0b c2 cc cd | 8f 88 0e 0b 83 2d 00 c2 |.\".....|.....-..|
|00000b50| ce cf 8f 88 2a 0e 10 83 | 43 00 0e 10 40 41 40 1e |....*...|C...@A@.|
|00000b60| 11 d2 0e 11 21 88 29 82 | 2e 00 0e 13 3f 85 6b 00 |....!.).|....?.k.|
|00000b70| 08 83 53 00 d4 d5 d6 21 | 21 88 c2 1e 17 d8 d9 c2 |..S....!|!.......|
|00000b80| 0e 1a 23 10 29 c1 08 db | 5c 22 88 dc 08 dd 5c 22 |..#.)...|\"....\"|
|00000b90| 88 de 08 21 87 22 20 5b | 73 65 72 76 65 72 2d 70 |...!." [|server-p|
|00000ba0| 72 6f 63 65 73 73 20 73 | 65 74 2d 70 72 6f 63 65 |rocess s|et-proce|
|00000bb0| 73 73 2d 73 65 6e 74 69 | 6e 65 6c 20 6e 69 6c 20 |ss-senti|nel nil |
|00000bc0| 28 64 65 6c 65 74 65 2d | 70 72 6f 63 65 73 73 20 |(delete-|process |
|00000bd0| 73 65 72 76 65 72 2d 70 | 72 6f 63 65 73 73 29 20 |server-p|rocess) |
|00000be0| 28 28 65 72 72 6f 72 29 | 29 20 28 64 65 6c 65 74 |((error)|) (delet|
|00000bf0| 65 2d 66 69 6c 65 20 22 | 7e 2f 2e 65 6d 61 63 73 |e-file "|~/.emacs|
|00000c00| 5f 73 65 72 76 65 72 22 | 29 20 28 28 65 72 72 6f |_server"|) ((erro|
|00000c10| 72 29 29 20 73 79 73 74 | 65 6d 2d 6e 61 6d 65 20 |r)) syst|em-name |
|00000c20| 73 79 73 6e 61 6d 65 20 | 73 74 72 69 6e 67 2d 6d |sysname |string-m|
|00000c30| 61 74 63 68 20 22 5c 5c | 2e 22 20 64 6f 74 2d 69 |atch "\\|." dot-i|
|00000c40| 6e 64 65 78 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ndex (by|te-code |
|00000c50| 22 c0 c1 c2 c3 20 5c 66 | 23 21 87 22 20 5b 64 65 |".... \f|#!." [de|
|00000c60| 6c 65 74 65 2d 66 69 6c | 65 20 66 6f 72 6d 61 74 |lete-fil|e format|
|00000c70| 20 22 2f 74 6d 70 2f 65 | 73 72 76 25 64 2d 25 73 | "/tmp/e|srv%d-%s|
|00000c80| 22 20 75 73 65 72 2d 75 | 69 64 20 73 79 73 6e 61 |" user-u|id sysna|
|00000c90| 6d 65 5d 20 35 29 20 28 | 28 65 72 72 6f 72 29 29 |me] 5) (|(error))|
|00000ca0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 | (byte-c|ode "...|
|00000cb0| c3 20 5c 66 c5 0e 06 4f | 23 21 87 22 20 5b 64 65 |. \f...O|#!." [de|
|00000cc0| 6c 65 74 65 2d 66 69 6c | 65 20 66 6f 72 6d 61 74 |lete-fil|e format|
|00000cd0| 20 22 2f 74 6d 70 2f 65 | 73 72 76 25 64 2d 25 73 | "/tmp/e|srv%d-%s|
|00000ce0| 22 20 75 73 65 72 2d 75 | 69 64 20 73 79 73 6e 61 |" user-u|id sysna|
|00000cf0| 6d 65 20 30 20 64 6f 74 | 2d 69 6e 64 65 78 5d 20 |me 0 dot|-index] |
|00000d00| 37 29 20 28 28 65 72 72 | 6f 72 29 29 20 73 65 72 |7) ((err|or)) ser|
|00000d10| 76 65 72 2d 63 6c 69 65 | 6e 74 73 20 62 75 66 66 |ver-clie|nts buff|
|00000d20| 65 72 20 73 65 72 76 65 | 72 2d 62 75 66 66 65 72 |er serve|r-buffer|
|00000d30| 2d 64 6f 6e 65 20 6c 65 | 61 76 65 2d 64 65 61 64 |-done le|ave-dead|
|00000d40| 20 73 65 72 76 65 72 2d | 6c 6f 67 20 6d 65 73 73 | server-|log mess|
|00000d50| 61 67 65 20 22 52 65 73 | 74 61 72 74 69 6e 67 20 |age "Res|tarting |
|00000d60| 73 65 72 76 65 72 22 20 | 70 72 6f 63 65 73 73 2d |server" |process-|
|00000d70| 63 6f 6e 6e 65 63 74 69 | 6f 6e 2d 74 79 70 65 20 |connecti|on-type |
|00000d80| 73 74 61 72 74 2d 70 72 | 6f 63 65 73 73 20 22 73 |start-pr|ocess "s|
|00000d90| 65 72 76 65 72 22 20 73 | 65 72 76 65 72 2d 70 72 |erver" s|erver-pr|
|00000da0| 6f 67 72 61 6d 20 73 65 | 72 76 65 72 2d 73 65 6e |ogram se|rver-sen|
|00000db0| 74 69 6e 65 6c 20 73 65 | 74 2d 70 72 6f 63 65 73 |tinel se|t-proces|
|00000dc0| 73 2d 66 69 6c 74 65 72 | 20 73 65 72 76 65 72 2d |s-filter| server-|
|00000dd0| 70 72 6f 63 65 73 73 2d | 66 69 6c 74 65 72 20 70 |process-|filter p|
|00000de0| 72 6f 63 65 73 73 2d 6b | 69 6c 6c 2d 77 69 74 68 |rocess-k|ill-with|
|00000df0| 6f 75 74 2d 71 75 65 72 | 79 5d 20 34 20 28 23 24 |out-quer|y] 4 (#$|
|00000e00| 20 2e 20 32 34 33 32 29 | 20 22 50 22 5d 29 0a 28 | . 2432)| "P"]).(|
|00000e10| 64 65 66 61 6c 69 61 73 | 20 27 73 65 72 76 65 72 |defalias| 'server|
|00000e20| 2d 70 72 6f 63 65 73 73 | 2d 66 69 6c 74 65 72 20 |-process|-filter |
|00000e30| 23 5b 28 70 72 6f 63 20 | 73 74 72 69 6e 67 29 20 |#[(proc |string) |
|00000e40| 22 c0 09 21 88 5c 6e 09 | 50 11 c3 c4 09 5c 22 83 |"..!.\n.|P....\".|
|00000e50| c4 00 09 c5 89 94 4f c6 | 89 c7 1e 08 1e 09 1e 5c |......O.|.......\|
|00000e60| 6e 1e 0b 09 c5 95 c6 4f | 11 c3 cc 0e 0b 5c 22 83 |n......O|.....\".|
|00000e70| 3a 00 cd ce 0e 0b c5 95 | c6 4f 5c 22 88 82 c0 00 |:.......|.O\"....|
|00000e80| c3 cf 0e 0b 5c 22 83 c0 | 00 0e 0b c5 95 c6 4f 89 |....\"..|......O.|
|00000e90| 16 0b c5 c3 d0 0e 0b 5c | 22 4f 43 16 5c 6e 0e 0b |.......\|"OC.\n..|
|00000ea0| c5 95 c6 4f 16 0b c3 d1 | 0e 0b 5c 22 83 a1 00 0e |...O....|..\"....|
|00000eb0| 0b c5 94 c5 95 53 4f 1e | 12 0e 0b c5 95 c6 4f 16 |.....SO.|......O.|
|00000ec0| 0b c3 d3 0e 12 5c 22 83 | 8b 00 d4 0e 12 c7 c6 4f |.....\".|.......O|
|00000ed0| 21 16 08 82 9d 00 d5 0e | 12 21 89 16 12 0e 08 44 |!.......|.!.....D|
|00000ee0| 0e 09 42 16 09 c7 16 08 | 29 82 5d 00 d6 0e 09 0e |..B.....|).].....|
|00000ef0| 5c 6e 5c 22 88 0e 5c 6e | 0e 17 42 16 17 d8 0e 5c |\n\"..\n|..B....\|
|00000f00| 6e 41 40 21 88 d9 da 21 | 88 cd db dc 21 21 88 2c |nA@!...!|....!!.,|
|00000f10| 82 08 00 09 89 12 87 22 | 20 5b 73 65 72 76 65 72 |......."| [server|
|00000f20| 2d 6c 6f 67 20 73 74 72 | 69 6e 67 20 73 65 72 76 |-log str|ing serv|
|00000f30| 65 72 2d 70 72 65 76 69 | 6f 75 73 2d 73 74 72 69 |er-previ|ous-stri|
|00000f40| 6e 67 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |ng strin|g-match |
|00000f50| 22 5c 6e 22 20 30 20 6e | 69 6c 20 31 20 6c 69 6e |"\n" 0 n|il 1 lin|
|00000f60| 65 6e 6f 20 66 69 6c 65 | 73 20 63 6c 69 65 6e 74 |eno file|s client|
|00000f70| 20 72 65 71 75 65 73 74 | 20 22 5e 45 72 72 6f 72 | request| "^Error|
|00000f80| 3a 20 22 20 6d 65 73 73 | 61 67 65 20 22 53 65 72 |: " mess|age "Ser|
|00000f90| 76 65 72 20 65 72 72 6f | 72 3a 20 25 73 22 20 22 |ver erro|r: %s" "|
|00000fa0| 5e 43 6c 69 65 6e 74 3a | 20 22 20 22 20 22 20 22 |^Client:| " " " "|
|00000fb0| 5b 5e 20 5d 2b 20 22 20 | 61 72 67 20 22 5c 5c 60 |[^ ]+ " |arg "\\`|
|00000fc0| 5c 5c 2b 5b 30 2d 39 5d | 2b 5c 5c 27 22 20 72 65 |\\+[0-9]|+\\'" re|
|00000fd0| 61 64 20 63 6f 6d 6d 61 | 6e 64 2d 6c 69 6e 65 2d |ad comma|nd-line-|
|00000fe0| 6e 6f 72 6d 61 6c 69 7a | 65 2d 66 69 6c 65 2d 6e |normaliz|e-file-n|
|00000ff0| 61 6d 65 20 73 65 72 76 | 65 72 2d 76 69 73 69 74 |ame serv|er-visit|
|00001000| 2d 66 69 6c 65 73 20 73 | 65 72 76 65 72 2d 63 6c |-files s|erver-cl|
|00001010| 69 65 6e 74 73 20 73 65 | 72 76 65 72 2d 73 77 69 |ients se|rver-swi|
|00001020| 74 63 68 2d 62 75 66 66 | 65 72 20 72 75 6e 2d 68 |tch-buff|er run-h|
|00001030| 6f 6f 6b 73 20 73 65 72 | 76 65 72 2d 73 77 69 74 |ooks ser|ver-swit|
|00001040| 63 68 2d 68 6f 6f 6b 20 | 73 75 62 73 74 69 74 75 |ch-hook |substitu|
|00001050| 74 65 2d 63 6f 6d 6d 61 | 6e 64 2d 6b 65 79 73 20 |te-comma|nd-keys |
|00001060| 22 57 68 65 6e 20 64 6f | 6e 65 20 77 69 74 68 20 |"When do|ne with |
|00001070| 61 20 62 75 66 66 65 72 | 2c 20 74 79 70 65 20 5c |a buffer|, type \|
|00001080| 5c 5b 73 65 72 76 65 72 | 2d 65 64 69 74 5d 22 5d |\[server|-edit]"]|
|00001090| 20 36 5d 29 0a 23 40 31 | 32 37 20 46 69 6e 64 73 | 6]).#@1|27 Finds|
|000010a0| 20 46 49 4c 45 53 20 61 | 6e 64 20 72 65 74 75 72 | FILES a|nd retur|
|000010b0| 6e 73 20 74 68 65 20 6c | 69 73 74 20 43 4c 49 45 |ns the l|ist CLIE|
|000010c0| 4e 54 20 77 69 74 68 20 | 74 68 65 20 62 75 66 66 |NT with |the buff|
|000010d0| 65 72 73 20 6e 63 6f 6e | 63 27 64 2e 0a 46 49 4c |ers ncon|c'd..FIL|
|000010e0| 45 53 20 69 73 20 61 6e | 20 61 6c 69 73 74 20 77 |ES is an| alist w|
|000010f0| 68 6f 73 65 20 65 6c 65 | 6d 65 6e 74 73 20 61 72 |hose ele|ments ar|
|00001100| 65 20 28 46 49 4c 45 4e | 41 4d 45 20 4c 49 4e 45 |e (FILEN|AME LINE|
|00001110| 4e 55 4d 42 45 52 29 2e | 1f 0a 28 64 65 66 61 6c |NUMBER).|..(defal|
|00001120| 69 61 73 20 27 73 65 72 | 76 65 72 2d 76 69 73 69 |ias 'ser|ver-visi|
|00001130| 74 2d 66 69 6c 65 73 20 | 23 5b 28 66 69 6c 65 73 |t-files |#[(files|
|00001140| 20 63 6c 69 65 6e 74 29 | 20 22 c0 c1 70 1a 1b 1c | client)| "..p...|
|00001150| c5 8e 0e 06 83 76 00 0e | 06 40 40 1e 07 c8 0e 07 |.....v..|.@@.....|
|00001160| 21 89 1a 83 4e 00 5c 6e | 71 83 4e 00 c9 0e 07 21 |!...N.\n|q.N....!|
|00001170| 83 3c 00 ca 5c 6e 21 83 | 34 00 cb 5c 6e 21 83 58 |.<..\n!.|4..\n!.X|
|00001180| 00 cc c1 c0 5c 22 88 82 | 58 00 cd ce 0e 07 cf 51 |....\"..|X......Q|
|00001190| 21 83 58 00 d0 0e 07 21 | 88 82 58 00 d1 0e 07 21 |!.X....!|..X....!|
|000011a0| 71 88 d2 d3 21 88 2a d4 | 0e 06 40 41 40 21 88 0e |q...!.*.|..@A@!..|
|000011b0| 15 40 0e 16 42 16 16 70 | 5c 66 42 14 0e 06 41 89 |.@..B..p|\fB...A.|
|000011c0| 16 06 84 0d 00 29 0e 15 | 5c 66 a4 2b 87 22 20 5b |.....)..|\f.+." [|
|000011d0| 6e 69 6c 20 74 20 6f 62 | 75 66 20 6c 61 73 74 2d |nil t ob|uf last-|
|000011e0| 6e 6f 6e 6d 65 6e 75 2d | 65 76 65 6e 74 20 63 6c |nonmenu-|event cl|
|000011f0| 69 65 6e 74 2d 72 65 63 | 6f 72 64 20 28 28 73 65 |ient-rec|ord ((se|
|00001200| 74 2d 62 75 66 66 65 72 | 20 6f 62 75 66 29 29 20 |t-buffer| obuf)) |
|00001210| 66 69 6c 65 73 20 66 69 | 6c 65 6e 20 67 65 74 2d |files fi|len get-|
|00001220| 66 69 6c 65 2d 62 75 66 | 66 65 72 20 66 69 6c 65 |file-buf|fer file|
|00001230| 2d 65 78 69 73 74 73 2d | 70 20 76 65 72 69 66 79 |-exists-|p verify|
|00001240| 2d 76 69 73 69 74 65 64 | 2d 66 69 6c 65 2d 6d 6f |-visited|-file-mo|
|00001250| 64 74 69 6d 65 20 62 75 | 66 66 65 72 2d 6d 6f 64 |dtime bu|ffer-mod|
|00001260| 69 66 69 65 64 2d 70 20 | 72 65 76 65 72 74 2d 62 |ified-p |revert-b|
|00001270| 75 66 66 65 72 20 79 2d | 6f 72 2d 6e 2d 70 20 22 |uffer y-|or-n-p "|
|00001280| 46 69 6c 65 20 6e 6f 20 | 6c 6f 6e 67 65 72 20 65 |File no |longer e|
|00001290| 78 69 73 74 73 3a 20 22 | 20 22 2c 20 77 72 69 74 |xists: "| ", writ|
|000012a0| 65 20 62 75 66 66 65 72 | 20 74 6f 20 66 69 6c 65 |e buffer| to file|
|000012b0| 3f 20 22 20 77 72 69 74 | 65 2d 66 69 6c 65 20 66 |? " writ|e-file f|
|000012c0| 69 6e 64 2d 66 69 6c 65 | 2d 6e 6f 73 65 6c 65 63 |ind-file|-noselec|
|000012d0| 74 20 72 75 6e 2d 68 6f | 6f 6b 73 20 73 65 72 76 |t run-ho|oks serv|
|000012e0| 65 72 2d 76 69 73 69 74 | 2d 68 6f 6f 6b 20 67 6f |er-visit|-hook go|
|000012f0| 74 6f 2d 6c 69 6e 65 20 | 63 6c 69 65 6e 74 20 73 |to-line |client s|
|00001300| 65 72 76 65 72 2d 62 75 | 66 66 65 72 2d 63 6c 69 |erver-bu|ffer-cli|
|00001310| 65 6e 74 73 5d 20 35 20 | 28 23 24 20 2e 20 34 32 |ents] 5 |(#$ . 42|
|00001320| 35 31 29 5d 29 0a 23 40 | 32 37 30 20 4d 61 72 6b |51)]).#@|270 Mark|
|00001330| 20 42 55 46 46 45 52 20 | 61 73 20 22 64 6f 6e 65 | BUFFER |as "done|
|00001340| 22 20 66 6f 72 20 69 74 | 73 20 63 6c 69 65 6e 74 |" for it|s client|
|00001350| 28 73 29 2e 0a 54 68 69 | 73 20 62 75 72 69 65 73 |(s)..Thi|s buries|
|00001360| 20 74 68 65 20 62 75 66 | 66 65 72 2c 20 74 68 65 | the buf|fer, the|
|00001370| 6e 20 72 65 74 75 72 6e | 73 20 61 20 6c 69 73 74 |n return|s a list|
|00001380| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 20 28 4e 45 | of the |form (NE|
|00001390| 58 54 2d 42 55 46 46 45 | 52 20 4b 49 4c 4c 45 44 |XT-BUFFE|R KILLED|
|000013a0| 29 2e 0a 4e 45 58 54 2d | 42 55 46 46 45 52 20 69 |)..NEXT-|BUFFER i|
|000013b0| 73 20 61 6e 6f 74 68 65 | 72 20 73 65 72 76 65 72 |s anothe|r server|
|000013c0| 20 62 75 66 66 65 72 2c | 20 61 73 20 61 20 73 75 | buffer,| as a su|
|000013d0| 67 67 65 73 74 69 6f 6e | 20 66 6f 72 20 77 68 61 |ggestion| for wha|
|000013e0| 74 20 74 6f 20 73 65 6c | 65 63 74 20 6e 65 78 74 |t to sel|ect next|
|000013f0| 2c 0a 6f 72 20 6e 69 6c | 2e 20 20 4b 49 4c 4c 45 |,.or nil|. KILLE|
|00001400| 44 20 69 73 20 74 20 69 | 66 20 77 65 20 6b 69 6c |D is t i|f we kil|
|00001410| 6c 65 64 20 42 55 46 46 | 45 52 20 28 62 65 63 61 |led BUFF|ER (beca|
|00001420| 75 73 65 20 69 74 20 77 | 61 73 20 61 20 74 65 6d |use it w|as a tem|
|00001430| 70 20 66 69 6c 65 29 2e | 1f 0a 28 64 65 66 61 6c |p file).|..(defal|
|00001440| 69 61 73 20 27 73 65 72 | 76 65 72 2d 62 75 66 66 |ias 'ser|ver-buff|
|00001450| 65 72 2d 64 6f 6e 65 20 | 23 5b 28 62 75 66 66 65 |er-done |#[(buffe|
|00001460| 72 29 20 22 c0 09 21 c2 | 3d c3 89 c4 0d 1e 06 1e |r) "..!.|=.......|
|00001470| 07 1e 08 1e 09 1e 5c 6e | 0e 06 83 96 00 0e 06 40 |......\n|.......@|
|00001480| 1e 0b 0e 09 84 2b 00 0e | 5c 66 0e 0b 3e 41 40 16 |.....+..|\f..>A@.|
|00001490| 09 cd 0e 5c 66 0e 0b 5c | 22 88 0e 0b 89 1e 0e 83 |...\f..\|".......|
|000014a0| 5b 00 cf 0e 0e 40 21 83 | 52 00 d0 0e 0e 40 21 84 |[....@!.|R....@!.|
|000014b0| 52 00 cd 0e 0e 40 0e 0b | 5c 22 88 0e 0e 41 89 16 |R....@..|\"...A..|
|000014c0| 0e 84 3a 00 29 0e 0b 41 | 84 8c 00 0e 5c 6e 83 86 |..:.)..A|....\n..|
|000014d0| 00 0e 07 84 70 00 d1 d2 | 21 88 c3 16 07 d3 09 d4 |....p...|!.......|
|000014e0| d5 0e 0b 40 5c 22 5c 22 | 88 d6 d4 d5 0e 0b 40 5c |...@\"\"|......@\|
|000014f0| 22 21 88 cd 0e 0b 0d 5c | 22 15 29 0e 06 41 89 16 |"!.....\|".)..A..|
|00001500| 06 84 18 00 cf 0e 5c 66 | 21 83 c8 00 d0 0e 5c 66 |......\f|!.....\f|
|00001510| 21 83 c8 00 8a 0e 5c 66 | 71 88 c3 16 17 d8 d9 21 |!.....\f|q......!|
|00001520| 88 29 da 0e 5c 66 21 83 | c3 00 db 0e 5c 66 21 88 |.)..\f!.|....\f!.|
|00001530| c4 16 08 82 c8 00 dc 0e | 5c 66 21 88 0e 09 0e 08 |........|\f!.....|
|00001540| 2d 44 87 22 20 5b 70 72 | 6f 63 65 73 73 2d 73 74 |-D." [pr|ocess-st|
|00001550| 61 74 75 73 20 73 65 72 | 76 65 72 2d 70 72 6f 63 |atus ser|ver-proc|
|00001560| 65 73 73 20 72 75 6e 20 | 6e 69 6c 20 74 20 73 65 |ess run |nil t se|
|00001570| 72 76 65 72 2d 63 6c 69 | 65 6e 74 73 20 6f 6c 64 |rver-cli|ents old|
|00001580| 2d 63 6c 69 65 6e 74 73 | 20 66 69 72 73 74 20 6b |-clients| first k|
|00001590| 69 6c 6c 65 64 20 6e 65 | 78 74 2d 62 75 66 66 65 |illed ne|xt-buffe|
|000015a0| 72 20 72 75 6e 6e 69 6e | 67 20 63 6c 69 65 6e 74 |r runnin|g client|
|000015b0| 20 62 75 66 66 65 72 20 | 64 65 6c 71 20 74 61 69 | buffer |delq tai|
|000015c0| 6c 20 62 75 66 66 65 72 | 70 20 62 75 66 66 65 72 |l buffer|p buffer|
|000015d0| 2d 6e 61 6d 65 20 73 69 | 74 2d 66 6f 72 20 31 20 |-name si|t-for 1 |
|000015e0| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 66 6f 72 6d |send-str|ing form|
|000015f0| 61 74 20 22 43 6c 6f 73 | 65 3a 20 25 73 20 44 6f |at "Clos|e: %s Do|
|00001600| 6e 65 5c 6e 22 20 73 65 | 72 76 65 72 2d 6c 6f 67 |ne\n" se|rver-log|
|00001610| 20 73 65 72 76 65 72 2d | 62 75 66 66 65 72 2d 63 | server-|buffer-c|
|00001620| 6c 69 65 6e 74 73 20 72 | 75 6e 2d 68 6f 6f 6b 73 |lients r|un-hooks|
|00001630| 20 73 65 72 76 65 72 2d | 64 6f 6e 65 2d 68 6f 6f | server-|done-hoo|
|00001640| 6b 20 73 65 72 76 65 72 | 2d 74 65 6d 70 2d 66 69 |k server|-temp-fi|
|00001650| 6c 65 2d 70 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |le-p kil|l-buffer|
|00001660| 20 62 75 72 79 2d 62 75 | 66 66 65 72 5d 20 36 20 | bury-bu|ffer] 6 |
|00001670| 28 23 24 20 2e 20 34 39 | 30 38 29 5d 29 0a 23 40 |(#$ . 49|08)]).#@|
|00001680| 32 35 38 20 52 65 74 75 | 72 6e 20 6e 6f 6e 2d 6e |258 Retu|rn non-n|
|00001690| 69 6c 20 69 66 20 42 55 | 46 46 45 52 20 63 6f 6e |il if BU|FFER con|
|000016a0| 74 61 69 6e 73 20 61 20 | 66 69 6c 65 20 63 6f 6e |tains a |file con|
|000016b0| 73 69 64 65 72 65 64 20 | 74 65 6d 70 6f 72 61 72 |sidered |temporar|
|000016c0| 79 2e 0a 54 68 65 73 65 | 20 61 72 65 20 66 69 6c |y..These| are fil|
|000016d0| 65 73 20 77 68 6f 73 65 | 20 6e 61 6d 65 73 20 73 |es whose| names s|
|000016e0| 75 67 67 65 73 74 20 74 | 68 65 79 20 61 72 65 20 |uggest t|hey are |
|000016f0| 72 65 70 65 61 74 65 64 | 6c 79 0a 72 65 75 73 65 |repeated|ly.reuse|
|00001700| 64 20 74 6f 20 70 61 73 | 73 20 69 6e 66 6f 72 6d |d to pas|s inform|
|00001710| 61 74 69 6f 6e 20 74 6f | 20 61 6e 6f 74 68 65 72 |ation to| another|
|00001720| 20 70 72 6f 67 72 61 6d | 2e 0a 0a 54 68 65 20 76 | program|...The v|
|00001730| 61 72 69 61 62 6c 65 20 | 60 73 65 72 76 65 72 2d |ariable |`server-|
|00001740| 74 65 6d 70 2d 66 69 6c | 65 2d 72 65 67 65 78 70 |temp-fil|e-regexp|
|00001750| 27 20 63 6f 6e 74 72 6f | 6c 73 20 77 68 69 63 68 |' contro|ls which|
|00001760| 20 66 69 6c 65 6e 61 6d | 65 73 0a 61 72 65 20 63 | filenam|es.are c|
|00001770| 6f 6e 73 69 64 65 72 65 | 64 20 74 65 6d 70 6f 72 |onsidere|d tempor|
|00001780| 61 72 79 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ary...(d|efalias |
|00001790| 27 73 65 72 76 65 72 2d | 74 65 6d 70 2d 66 69 6c |'server-|temp-fil|
|000017a0| 65 2d 70 20 23 5b 28 62 | 75 66 66 65 72 29 20 22 |e-p #[(b|uffer) "|
|000017b0| c0 09 21 85 5c 66 00 c2 | 0b c0 09 21 5c 22 87 22 |..!.\f..|...!\"."|
|000017c0| 20 5b 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 6e 61 | [buffer|-file-na|
|000017d0| 6d 65 20 62 75 66 66 65 | 72 20 73 74 72 69 6e 67 |me buffe|r string|
|000017e0| 2d 6d 61 74 63 68 20 73 | 65 72 76 65 72 2d 74 65 |-match s|erver-te|
|000017f0| 6d 70 2d 66 69 6c 65 2d | 72 65 67 65 78 70 5d 20 |mp-file-|regexp] |
|00001800| 34 20 28 23 24 20 2e 20 | 35 37 36 34 29 5d 29 0a |4 (#$ . |5764)]).|
|00001810| 23 40 32 39 34 20 4f 66 | 66 65 72 20 74 6f 20 73 |#@294 Of|fer to s|
|00001820| 61 76 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |ave curr|ent buff|
|00001830| 65 72 2c 20 6d 61 72 6b | 20 69 74 20 61 73 20 22 |er, mark| it as "|
|00001840| 64 6f 6e 65 22 20 66 6f | 72 20 63 6c 69 65 6e 74 |done" fo|r client|
|00001850| 73 2e 0a 54 68 69 73 20 | 62 75 72 69 65 73 20 74 |s..This |buries t|
|00001860| 68 65 20 62 75 66 66 65 | 72 2c 20 74 68 65 6e 20 |he buffe|r, then |
|00001870| 72 65 74 75 72 6e 73 20 | 61 20 6c 69 73 74 20 6f |returns |a list o|
|00001880| 66 20 74 68 65 20 66 6f | 72 6d 20 28 4e 45 58 54 |f the fo|rm (NEXT|
|00001890| 2d 42 55 46 46 45 52 20 | 4b 49 4c 4c 45 44 29 2e |-BUFFER |KILLED).|
|000018a0| 0a 4e 45 58 54 2d 42 55 | 46 46 45 52 20 69 73 20 |.NEXT-BU|FFER is |
|000018b0| 61 6e 6f 74 68 65 72 20 | 73 65 72 76 65 72 20 62 |another |server b|
|000018c0| 75 66 66 65 72 2c 20 61 | 73 20 61 20 73 75 67 67 |uffer, a|s a sugg|
|000018d0| 65 73 74 69 6f 6e 20 66 | 6f 72 20 77 68 61 74 20 |estion f|or what |
|000018e0| 74 6f 20 73 65 6c 65 63 | 74 20 6e 65 78 74 2c 0a |to selec|t next,.|
|000018f0| 6f 72 20 6e 69 6c 2e 20 | 20 4b 49 4c 4c 45 44 20 |or nil. | KILLED |
|00001900| 69 73 20 74 20 69 66 20 | 77 65 20 6b 69 6c 6c 65 |is t if |we kille|
|00001910| 64 20 74 68 65 20 42 55 | 46 46 45 52 20 28 62 65 |d the BU|FFER (be|
|00001920| 63 61 75 73 65 20 69 74 | 20 77 61 73 20 61 20 74 |cause it| was a t|
|00001930| 65 6d 70 20 66 69 6c 65 | 29 2e 1f 0a 28 64 65 66 |emp file|)...(def|
|00001940| 61 6c 69 61 73 20 27 73 | 65 72 76 65 72 2d 64 6f |alias 's|erver-do|
|00001950| 6e 65 20 23 5b 6e 69 6c | 20 22 70 18 09 85 2d 00 |ne #[nil| "p...-.|
|00001960| c2 08 21 83 17 00 c3 89 | 1c 1d c6 20 88 2a 82 2a |..!.....|... .*.*|
|00001970| 00 c7 20 83 2a 00 c8 c9 | 0e 5c 6e cb 51 21 83 2a |.. .*...|.\n.Q!.*|
|00001980| 00 c6 08 21 88 cc 08 21 | 29 87 22 20 5b 62 75 66 |...!...!|)." [buf|
|00001990| 66 65 72 20 73 65 72 76 | 65 72 2d 62 75 66 66 65 |fer serv|er-buffe|
|000019a0| 72 2d 63 6c 69 65 6e 74 | 73 20 73 65 72 76 65 72 |r-client|s server|
|000019b0| 2d 74 65 6d 70 2d 66 69 | 6c 65 2d 70 20 6e 69 6c |-temp-fi|le-p nil|
|000019c0| 20 62 75 66 66 65 72 2d | 62 61 63 6b 65 64 2d 75 | buffer-|backed-u|
|000019d0| 70 20 76 65 72 73 69 6f | 6e 2d 63 6f 6e 74 72 6f |p versio|n-contro|
|000019e0| 6c 20 73 61 76 65 2d 62 | 75 66 66 65 72 20 62 75 |l save-b|uffer bu|
|000019f0| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00001a00| 79 2d 6f 72 2d 6e 2d 70 | 20 22 53 61 76 65 20 66 |y-or-n-p| "Save f|
|00001a10| 69 6c 65 20 22 20 62 75 | 66 66 65 72 2d 66 69 6c |ile " bu|ffer-fil|
|00001a20| 65 2d 6e 61 6d 65 20 22 | 3f 20 22 20 73 65 72 76 |e-name "|? " serv|
|00001a30| 65 72 2d 62 75 66 66 65 | 72 2d 64 6f 6e 65 5d 20 |er-buffe|r-done] |
|00001a40| 34 20 28 23 24 20 2e 20 | 36 31 36 36 29 5d 29 0a |4 (#$ . |6166)]).|
|00001a50| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 72 76 65 |(defalia|s 'serve|
|00001a60| 72 2d 6b 69 6c 6c 2d 62 | 75 66 66 65 72 2d 71 75 |r-kill-b|uffer-qu|
|00001a70| 65 72 79 2d 66 75 6e 63 | 74 69 6f 6e 20 23 5b 6e |ery-func|tion #[n|
|00001a80| 69 6c 20 22 08 3f 86 0d | 00 c1 c2 c3 c4 70 21 5c |il ".?..|.....p!\|
|00001a90| 22 21 87 22 20 5b 73 65 | 72 76 65 72 2d 62 75 66 |"!." [se|rver-buf|
|00001aa0| 66 65 72 2d 63 6c 69 65 | 6e 74 73 20 79 65 73 2d |fer-clie|nts yes-|
|00001ab0| 6f 72 2d 6e 6f 2d 70 20 | 66 6f 72 6d 61 74 20 22 |or-no-p |format "|
|00001ac0| 42 75 66 66 65 72 20 60 | 25 73 27 20 73 74 69 6c |Buffer `|%s' stil|
|00001ad0| 6c 20 68 61 73 20 63 6c | 69 65 6e 74 73 3b 20 6b |l has cl|ients; k|
|00001ae0| 69 6c 6c 20 69 74 3f 20 | 22 20 62 75 66 66 65 72 |ill it? |" buffer|
|00001af0| 2d 6e 61 6d 65 5d 20 35 | 5d 29 0a 28 61 64 64 2d |-name] 5|]).(add-|
|00001b00| 68 6f 6f 6b 20 28 71 75 | 6f 74 65 20 6b 69 6c 6c |hook (qu|ote kill|
|00001b10| 2d 62 75 66 66 65 72 2d | 71 75 65 72 79 2d 66 75 |-buffer-|query-fu|
|00001b20| 6e 63 74 69 6f 6e 73 29 | 20 28 71 75 6f 74 65 20 |nctions)| (quote |
|00001b30| 73 65 72 76 65 72 2d 6b | 69 6c 6c 2d 62 75 66 66 |server-k|ill-buff|
|00001b40| 65 72 2d 71 75 65 72 79 | 2d 66 75 6e 63 74 69 6f |er-query|-functio|
|00001b50| 6e 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |n)).(def|alias 's|
|00001b60| 65 72 76 65 72 2d 6b 69 | 6c 6c 2d 65 6d 61 63 73 |erver-ki|ll-emacs|
|00001b70| 2d 71 75 65 72 79 2d 66 | 75 6e 63 74 69 6f 6e 20 |-query-f|unction |
|00001b80| 23 5b 6e 69 6c 20 22 c0 | 09 1a 1b 5c 6e 83 1f 00 |#[nil ".|...\n...|
|00001b90| c4 c5 c6 c5 c7 5c 6e 40 | 41 5c 22 5c 22 3e 83 18 |.....\n@|A\"\">..|
|00001ba0| 00 c4 13 5c 6e 41 89 12 | 84 08 00 0b 3f 86 27 00 |...\nA..|....?.'.|
|00001bb0| c8 c9 21 2a 87 22 20 5b | 6e 69 6c 20 73 65 72 76 |..!*." [|nil serv|
|00001bc0| 65 72 2d 63 6c 69 65 6e | 74 73 20 74 61 69 6c 20 |er-clien|ts tail |
|00001bd0| 6c 69 76 65 2d 63 6c 69 | 65 6e 74 20 74 20 6d 61 |live-cli|ent t ma|
|00001be0| 70 63 61 72 20 73 74 72 | 69 6e 67 70 20 62 75 66 |pcar str|ingp buf|
|00001bf0| 66 65 72 2d 6e 61 6d 65 | 20 79 65 73 2d 6f 72 2d |fer-name| yes-or-|
|00001c00| 6e 6f 2d 70 20 22 53 65 | 72 76 65 72 20 62 75 66 |no-p "Se|rver buf|
|00001c10| 66 65 72 73 20 73 74 69 | 6c 6c 20 68 61 76 65 20 |fers sti|ll have |
|00001c20| 63 6c 69 65 6e 74 73 3b | 20 65 78 69 74 20 61 6e |clients;| exit an|
|00001c30| 79 77 61 79 3f 20 22 5d | 20 37 5d 29 0a 28 61 64 |yway? "]| 7]).(ad|
|00001c40| 64 2d 68 6f 6f 6b 20 28 | 71 75 6f 74 65 20 6b 69 |d-hook (|quote ki|
|00001c50| 6c 6c 2d 65 6d 61 63 73 | 2d 71 75 65 72 79 2d 66 |ll-emacs|-query-f|
|00001c60| 75 6e 63 74 69 6f 6e 73 | 29 20 28 71 75 6f 74 65 |unctions|) (quote|
|00001c70| 20 73 65 72 76 65 72 2d | 6b 69 6c 6c 2d 65 6d 61 | server-|kill-ema|
|00001c80| 63 73 2d 71 75 65 72 79 | 2d 66 75 6e 63 74 69 6f |cs-query|-functio|
|00001c90| 6e 29 29 0a 23 40 36 39 | 35 20 53 77 69 74 63 68 |n)).#@69|5 Switch|
|00001ca0| 20 74 6f 20 6e 65 78 74 | 20 73 65 72 76 65 72 20 | to next| server |
|00001cb0| 65 64 69 74 69 6e 67 20 | 62 75 66 66 65 72 3b 20 |editing |buffer; |
|00001cc0| 73 61 79 20 22 44 6f 6e | 65 22 20 66 6f 72 20 63 |say "Don|e" for c|
|00001cd0| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 2e 0a 49 |urrent b|uffer..I|
|00001ce0| 66 20 61 20 73 65 72 76 | 65 72 20 62 75 66 66 65 |f a serv|er buffe|
|00001cf0| 72 20 69 73 20 63 75 72 | 72 65 6e 74 2c 20 69 74 |r is cur|rent, it|
|00001d00| 20 69 73 20 6d 61 72 6b | 65 64 20 22 64 6f 6e 65 | is mark|ed "done|
|00001d10| 22 20 61 6e 64 20 6f 70 | 74 69 6f 6e 61 6c 6c 79 |" and op|tionally|
|00001d20| 20 73 61 76 65 64 2e 0a | 57 68 65 6e 20 61 6c 6c | saved..|When all|
|00001d30| 20 6f 66 20 61 20 63 6c | 69 65 6e 74 27 73 20 62 | of a cl|ient's b|
|00001d40| 75 66 66 65 72 73 20 61 | 72 65 20 6d 61 72 6b 65 |uffers a|re marke|
|00001d50| 64 20 61 73 20 22 64 6f | 6e 65 22 2c 20 74 68 65 |d as "do|ne", the|
|00001d60| 20 63 6c 69 65 6e 74 20 | 69 73 20 6e 6f 74 69 66 | client |is notif|
|00001d70| 69 65 64 2e 0a 0a 54 65 | 6d 70 6f 72 61 72 79 20 |ied...Te|mporary |
|00001d80| 66 69 6c 65 73 20 73 75 | 63 68 20 61 73 20 4d 48 |files su|ch as MH|
|00001d90| 20 3c 64 72 61 66 74 3e | 20 66 69 6c 65 73 20 61 | <draft>| files a|
|00001da0| 72 65 20 61 6c 77 61 79 | 73 20 73 61 76 65 64 20 |re alway|s saved |
|00001db0| 61 6e 64 20 62 61 63 6b | 65 64 20 75 70 2c 0a 6e |and back|ed up,.n|
|00001dc0| 6f 20 71 75 65 73 74 69 | 6f 6e 73 20 61 73 6b 65 |o questi|ons aske|
|00001dd0| 64 2e 20 20 28 54 68 65 | 20 76 61 72 69 61 62 6c |d. (The| variabl|
|00001de0| 65 20 60 6d 61 6b 65 2d | 62 61 63 6b 75 70 2d 66 |e `make-|backup-f|
|00001df0| 69 6c 65 73 27 2c 20 69 | 66 20 6e 69 6c 2c 20 73 |iles', i|f nil, s|
|00001e00| 74 69 6c 6c 0a 69 6e 68 | 69 62 69 74 73 20 61 20 |till.inh|ibits a |
|00001e10| 62 61 63 6b 75 70 3b 20 | 79 6f 75 20 63 61 6e 20 |backup; |you can |
|00001e20| 73 65 74 20 69 74 20 6c | 6f 63 61 6c 6c 79 20 69 |set it l|ocally i|
|00001e30| 6e 20 61 20 70 61 72 74 | 69 63 75 6c 61 72 20 62 |n a part|icular b|
|00001e40| 75 66 66 65 72 20 74 6f | 0a 70 72 65 76 65 6e 74 |uffer to|.prevent|
|00001e50| 20 61 20 62 61 63 6b 75 | 70 20 66 6f 72 20 69 74 | a backu|p for it|
|00001e60| 2e 29 20 20 54 68 65 20 | 76 61 72 69 61 62 6c 65 |.) The |variable|
|00001e70| 20 60 73 65 72 76 65 72 | 2d 74 65 6d 70 2d 66 69 | `server|-temp-fi|
|00001e80| 6c 65 2d 72 65 67 65 78 | 70 27 20 63 6f 6e 74 72 |le-regex|p' contr|
|00001e90| 6f 6c 73 0a 77 68 69 63 | 68 20 66 69 6c 65 6e 61 |ols.whic|h filena|
|00001ea0| 6d 65 73 20 61 72 65 20 | 63 6f 6e 73 69 64 65 72 |mes are |consider|
|00001eb0| 65 64 20 74 65 6d 70 6f | 72 61 72 79 2e 0a 0a 49 |ed tempo|rary...I|
|00001ec0| 66 20 69 6e 76 6f 6b 65 | 64 20 77 69 74 68 20 61 |f invoke|d with a|
|00001ed0| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00001ee0| 2c 20 6f 72 20 69 66 20 | 74 68 65 72 65 20 69 73 |, or if |there is|
|00001ef0| 20 6e 6f 20 73 65 72 76 | 65 72 20 70 72 6f 63 65 | no serv|er proce|
|00001f00| 73 73 20 72 75 6e 6e 69 | 6e 67 2c 20 0a 73 74 61 |ss runni|ng, .sta|
|00001f10| 72 74 73 20 73 65 72 76 | 65 72 20 70 72 6f 63 65 |rts serv|er proce|
|00001f20| 73 73 20 61 6e 64 20 74 | 68 61 74 20 69 73 20 61 |ss and t|hat is a|
|00001f30| 6c 6c 2e 20 20 49 6e 76 | 6f 6b 65 64 20 62 79 20 |ll. Inv|oked by |
|00001f40| 5c 5b 73 65 72 76 65 72 | 2d 65 64 69 74 5d 2e 1f |\[server|-edit]..|
|00001f50| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 65 72 76 |.(defali|as 'serv|
|00001f60| 65 72 2d 65 64 69 74 20 | 23 5b 28 26 6f 70 74 69 |er-edit |#[(&opti|
|00001f70| 6f 6e 61 6c 20 61 72 67 | 29 20 22 08 84 10 00 09 |onal arg|) ".....|
|00001f80| 83 10 00 c2 09 21 c3 3e | 83 14 00 c4 c5 21 87 c6 |.....!.>|.....!..|
|00001f90| c7 c8 20 5c 22 87 22 20 | 5b 61 72 67 20 73 65 72 |.. \"." |[arg ser|
|00001fa0| 76 65 72 2d 70 72 6f 63 | 65 73 73 20 70 72 6f 63 |ver-proc|ess proc|
|00001fb0| 65 73 73 2d 73 74 61 74 | 75 73 20 28 73 69 67 6e |ess-stat|us (sign|
|00001fc0| 61 6c 20 65 78 69 74 29 | 20 73 65 72 76 65 72 2d |al exit)| server-|
|00001fd0| 73 74 61 72 74 20 6e 69 | 6c 20 61 70 70 6c 79 20 |start ni|l apply |
|00001fe0| 73 65 72 76 65 72 2d 73 | 77 69 74 63 68 2d 62 75 |server-s|witch-bu|
|00001ff0| 66 66 65 72 20 73 65 72 | 76 65 72 2d 64 6f 6e 65 |ffer ser|ver-done|
|00002000| 5d 20 33 20 28 23 24 20 | 2e 20 37 33 32 32 29 20 |] 3 (#$ |. 7322) |
|00002010| 22 50 22 5d 29 0a 23 40 | 31 32 36 20 53 77 69 74 |"P"]).#@|126 Swit|
|00002020| 63 68 20 74 6f 20 61 6e | 6f 74 68 65 72 20 62 75 |ch to an|other bu|
|00002030| 66 66 65 72 2c 20 70 72 | 65 66 65 72 61 62 6c 79 |ffer, pr|eferably|
|00002040| 20 6f 6e 65 20 74 68 61 | 74 20 68 61 73 20 61 20 | one tha|t has a |
|00002050| 63 6c 69 65 6e 74 2e 0a | 41 72 67 20 4e 45 58 54 |client..|Arg NEXT|
|00002060| 2d 42 55 46 46 45 52 20 | 69 73 20 61 20 73 75 67 |-BUFFER |is a sug|
|00002070| 67 65 73 74 69 6f 6e 3b | 20 69 66 20 69 74 20 69 |gestion;| if it i|
|00002080| 73 20 61 20 6c 69 76 65 | 20 62 75 66 66 65 72 2c |s a live| buffer,|
|00002090| 20 75 73 65 20 69 74 2e | 1f 0a 28 64 65 66 61 6c | use it.|..(defal|
|000020a0| 69 61 73 20 27 73 65 72 | 76 65 72 2d 73 77 69 74 |ias 'ser|ver-swit|
|000020b0| 63 68 2d 62 75 66 66 65 | 72 20 23 5b 28 26 6f 70 |ch-buffe|r #[(&op|
|000020c0| 74 69 6f 6e 61 6c 20 6e | 65 78 74 2d 62 75 66 66 |tional n|ext-buff|
|000020d0| 65 72 20 6b 69 6c 6c 65 | 64 2d 6f 6e 65 29 20 22 |er kille|d-one) "|
|000020e0| c0 09 21 83 13 00 c2 09 | 21 83 13 00 c3 09 21 88 |..!.....|!.....!.|
|000020f0| 82 28 00 c4 09 21 83 28 | 00 c5 09 21 84 5c 22 00 |.(...!.(|...!.\".|
|00002100| c6 20 11 c3 c7 09 21 21 | 88 c8 c9 20 21 83 37 00 |. ....!!|... !.7.|
|00002110| c3 ca cb cc cd 23 21 88 | ce cb cc cd 23 1e 0f d0 |.....#!.|....#...|
|00002120| c9 20 21 83 58 00 0e 0f | c9 20 3d 84 58 00 c3 ca |. !.X...|. =.X...|
|00002130| cb cc cd 23 21 88 82 3e | 00 29 d1 c9 20 cb 5c 22 |...#!..>|.).. .\"|
|00002140| 88 0e 12 83 7f 00 d3 0e | 12 21 83 77 00 d4 0e 12 |........|.!.w....|
|00002150| 21 83 77 00 d5 0e 12 21 | 87 d6 d7 d8 0e 12 21 5c |!.w....!|......!\|
|00002160| 22 87 0e 19 83 8e 00 d7 | 0e 19 40 41 40 0e 1a 5c |".......|..@A@..\|
|00002170| 22 87 0e 1a 3f 85 98 00 | d5 db 20 21 87 22 20 5b |"...?...|.. !." [|
|00002180| 77 69 6e 64 6f 77 70 20 | 73 65 72 76 65 72 2d 77 |windowp |server-w|
|00002190| 69 6e 64 6f 77 20 77 69 | 6e 64 6f 77 2d 6c 69 76 |indow wi|ndow-liv|
|000021a0| 65 2d 70 20 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |e-p sele|ct-windo|
|000021b0| 77 20 66 72 61 6d 65 70 | 20 66 72 61 6d 65 2d 6c |w framep| frame-l|
|000021c0| 69 76 65 2d 70 20 6d 61 | 6b 65 2d 66 72 61 6d 65 |ive-p ma|ke-frame|
|000021d0| 20 66 72 61 6d 65 2d 73 | 65 6c 65 63 74 65 64 2d | frame-s|elected-|
|000021e0| 77 69 6e 64 6f 77 20 77 | 69 6e 64 6f 77 2d 6d 69 |window w|indow-mi|
|000021f0| 6e 69 62 75 66 66 65 72 | 2d 70 20 73 65 6c 65 63 |nibuffer|-p selec|
|00002200| 74 65 64 2d 77 69 6e 64 | 6f 77 20 6e 65 78 74 2d |ted-wind|ow next-|
|00002210| 77 69 6e 64 6f 77 20 6e | 69 6c 20 6e 6f 6d 69 6e |window n|il nomin|
|00002220| 69 20 30 20 70 72 65 76 | 69 6f 75 73 2d 77 69 6e |i 0 prev|ious-win|
|00002230| 64 6f 77 20 6c 61 73 74 | 2d 77 69 6e 64 6f 77 20 |dow last|-window |
|00002240| 77 69 6e 64 6f 77 2d 64 | 65 64 69 63 61 74 65 64 |window-d|edicated|
|00002250| 2d 70 20 73 65 74 2d 77 | 69 6e 64 6f 77 2d 64 65 |-p set-w|indow-de|
|00002260| 64 69 63 61 74 65 64 2d | 70 20 6e 65 78 74 2d 62 |dicated-|p next-b|
|00002270| 75 66 66 65 72 20 62 75 | 66 66 65 72 70 20 62 75 |uffer bu|fferp bu|
|00002280| 66 66 65 72 2d 6e 61 6d | 65 20 73 77 69 74 63 68 |ffer-nam|e switch|
|00002290| 2d 74 6f 2d 62 75 66 66 | 65 72 20 61 70 70 6c 79 |-to-buff|er apply|
|000022a0| 20 73 65 72 76 65 72 2d | 73 77 69 74 63 68 2d 62 | server-|switch-b|
|000022b0| 75 66 66 65 72 20 73 65 | 72 76 65 72 2d 62 75 66 |uffer se|rver-buf|
|000022c0| 66 65 72 2d 64 6f 6e 65 | 20 73 65 72 76 65 72 2d |fer-done| server-|
|000022d0| 63 6c 69 65 6e 74 73 20 | 6b 69 6c 6c 65 64 2d 6f |clients |killed-o|
|000022e0| 6e 65 20 6f 74 68 65 72 | 2d 62 75 66 66 65 72 5d |ne other|-buffer]|
|000022f0| 20 35 20 28 23 24 20 2e | 20 38 32 32 30 29 5d 29 | 5 (#$ .| 8220)])|
|00002300| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00002310| 5c 22 88 c3 c4 21 87 22 | 20 5b 67 6c 6f 62 61 6c |\"...!."| [global|
|00002320| 2d 73 65 74 2d 6b 65 79 | 20 22 18 23 22 20 73 65 |-set-key| ".#" se|
|00002330| 72 76 65 72 2d 65 64 69 | 74 20 70 72 6f 76 69 64 |rver-edi|t provid|
|00002340| 65 20 73 65 72 76 65 72 | 5d 20 33 29 0a |e server|] 3). |
+--------+-------------------------+-------------------------+--------+--------+
